00100	
00200	BEGIN "MAKE"
00300	
00400	DEFINE ⊂="COMMENT";
00500	REQUIRE "MACROS[1,THO]" SOURCE_FILE;
00600	REQUIRE "COMSUB.HDR[1,THO]" SOURCE_FILE;
00800	  REQUIRE "BLOCKS.HDR[SYS,THO]" SOURCE_FILE;
01000	INTERNAL INTEGER INTOT,M,N,P,INFLAG,HINT,PONY;
01100	INTEGER I,J,J1,K,L,Q,PHPNT,PH2PNT,HPOINT,IMAX,LMID,LMAX,CHAN1,CHAN2,CHAN3,CHAN4,EOF;
01200	INTERNAL INTEGER ARRAY DATBUF[0:1024];
01300	STRING READ1,READ2,READ3,READ4,READ5;
01400	INTERNAL INTEGER I1L,I1H,I2L,I2H,I3L,I3H,  INL,INH,NZRNG,  FP1L,FP1H,FP2L,FP2H,
01500	            ILPB,ILPC,  IHPB,IHPC ;
01600	INTERNAL INTEGER NF; ⊂ *** USED IN PREPARE;
01800	LABEL LABEL1,START,O1;
     

00100	BEGIN   ⊂ GENERATE TABLES;
00200	
00300	CHAN1←1;  CHAN2←2; CHAN3←3; CHAN4←4;
00400	       TABIN(INTOT);  ⊂ INPUT TABLES;
00600	START:	
00700	CHAN1←GETCHAN;
00710	 CLOSE(CHAN1);
00720	  OPEN(CHAN1,"DSK",'10,0,10,0,0,EOF);
00730	  ENTER(CHAN1,"TABHED.DAT",0);
00740	ARRYOUT(CHAN1,INNAM[0],INSIZ);
00750	ARRYOUT(CHAN1,FLIST[0],35);
00760	ARRYOUT(CHAN1,PHLIST[0],63);
00770	ARRYOUT(CHAN1,HLIST[0],63
00905	);
00940	
00950	CLOSE(CHAN1);
00960	RELEASE(CHAN1);
00970	END "MAKE";
53000	END;	⊂ End of INTERNAL PROCEDURE MAKE;
53100	END "MAKE";